unit FormConexiones;

interface

uses
  SysUtils, Classes, DB, ADODB, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy,
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven, dxSkinSharp, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinXmas2008Blue, cxLookAndFeels, dxSkinsForm, frxClass,
  frxDBSet;

type
  TModuloDatosUsuario = class(TDataModule)
    ADOConnection1: TADOConnection;
    BusquedaUsuario: TADOQuery;
    DSbusquedaUsuario: TDataSource;
    BusquedaUsuarioID_USUARIO: TAutoIncField;
    BusquedaUsuarioNOMBRE: TStringField;
    BusquedaUsuarioAPELLIDOS: TStringField;
    BusquedaUsuarioTIPO: TSmallintField;
    BusquedaUsuarioEMAIL: TStringField;
    BusquedaUsuarioDIRECCION: TStringField;
    BusquedaUsuarioTEL_CASA: TStringField;
    BusquedaUsuarioCELULAR: TStringField;
    BusquedaUsuarioLABORAL: TBooleanField;
    BusquedaUsuarioPENAL: TBooleanField;
    BusquedaUsuarioCIVIL: TBooleanField;
    BusquedaUsuarioSUPERVISOR: TBooleanField;
    BusquedaUsuarioNICK: TStringField;
    BusquedaUsuarioPASSWORD: TStringField;
    BusquedaUsuarioACTIVO: TBooleanField;
    ConsultaContarUsuario: TADOQuery;
    ConsultaInicioSesion: TADOQuery;
    EstudianteBusqueda: TADOQuery;
    EstudianteBusquedaCARNE: TStringField;
    EstudianteBusquedaID_MUNICIPIO: TIntegerField;
    EstudianteBusquedaID_DEPTO: TIntegerField;
    EstudianteBusquedaID_ESTADO_CIVIL: TIntegerField;
    EstudianteBusquedaNOMBRE: TStringField;
    EstudianteBusquedaAPELLIDOS: TStringField;
    EstudianteBusquedaTEL_CASA: TStringField;
    EstudianteBusquedaTEL_PERSONAL: TStringField;
    EstudianteBusquedaTEL_TRABAJO: TStringField;
    EstudianteBusquedaDIRECCION: TStringField;
    EstudianteBusquedaCEDULA_REGISTRO: TIntegerField;
    EstudianteBusquedaDPI: TStringField;
    EstudianteBusquedaEMAIL: TStringField;
    EstudianteBusquedaPENSUM: TStringField;
    EstudianteBusquedaNO_FOLIO: TStringField;
    EstudianteBusquedaNO_LIBRO: TStringField;
    DSestudiante: TDataSource;
    Departamentos: TADOTable;
    DSdepartamentos: TDataSource;
    DSmunicipio: TDataSource;
    EstadoCivil: TADOTable;
    DSestadoCivil: TDataSource;
    DScasosLaboral: TDataSource;
    CasoLaboral: TADOQuery;
    CasoLaboralID_ASIGNACION_LABORAL: TAutoIncField;
    CasoLaboralID_CASO_LABORAL: TIntegerField;
    CasoLaboralCODIGO_CASO_LABORAL: TStringField;
    CasoLaboralANIO_CASO_LABORAL: TIntegerField;
    CasoLaboralCARNE: TStringField;
    CasoLaboralFECHA_ASIGNACION: TWideStringField;
    CasoLaboralFECHA_VALORACION: TWideStringField;
    CasoLaboralVALORACION: TBCDField;
    CasoLaboralAPROBADO: TBooleanField;
    CasoLaboralNOMBRE_ASESOR: TStringField;
    CasoLaboralID_USUARIO: TIntegerField;
    Asesores: TADOTable;
    DSasesores: TDataSource;
    CasoCivil: TADOQuery;
    Pasantias: TADOQuery;
    LaboratorioPenal: TADOQuery;
    LaboratorioLaboral: TADOQuery;
    ClinicaPenal: TADOQuery;
    ClinicaLaboral: TADOQuery;
    DScasocivl: TDataSource;
    DSpasantias: TDataSource;
    DSlaboratorioPenal: TDataSource;
    DSlaboratorioLaboral: TDataSource;
    DSclinicaPenal: TDataSource;
    DSclinicaLaboral: TDataSource;
    CasoCivilID_ASIGNACION_CIVIL: TAutoIncField;
    CasoCivilCARNE: TStringField;
    CasoCivilID_CASO_CIVIL: TIntegerField;
    CasoCivilCODIGO_CASO_CIVIL: TStringField;
    CasoCivilANIO_CASO_CIVIL: TIntegerField;
    CasoCivilVALORACION: TBCDField;
    CasoCivilAPROBADO: TBooleanField;
    CasoCivilID_USUARIO: TIntegerField;
    CasoCivilObservaciones: TWideStringField;
    PasantiasID_PASANTIA: TAutoIncField;
    PasantiasCODIGO_PASANTIA: TStringField;
    PasantiasANIO_PASANTIA: TIntegerField;
    PasantiasID_INSTITUCION: TIntegerField;
    PasantiasID_SUPERVISOR: TIntegerField;
    PasantiasID_ASESOR: TIntegerField;
    PasantiasCARNE: TStringField;
    PasantiasTIPO_PASANTIA: TSmallintField;
    PasantiasAREA_PASANTIA: TSmallintField;
    PasantiasFECHA_INICIO: TDateTimeField;
    PasantiasFECHA_FIN: TDateTimeField;
    PasantiasHORA_ENTRADA: TWideStringField;
    PasantiasHORA_SALIDA: TWideStringField;
    PasantiasTOTAL_HORAS: TBCDField;
    PasantiasAPROBADO: TBooleanField;
    PasantiasOBSERVACIONES: TStringField;
    LaboratorioPenalID_LABORATORIO_PENAL: TIntegerField;
    LaboratorioPenalCODIGO_LABORATORIO_PENAL: TStringField;
    LaboratorioPenalANIO_LABORATORIO_PENAL: TIntegerField;
    LaboratorioPenalID_USUARIO: TIntegerField;
    LaboratorioPenalCARNE: TStringField;
    LaboratorioPenalNOMBRE_SINDICADO: TStringField;
    LaboratorioPenalDELITO: TStringField;
    LaboratorioPenalAPROBADO: TBooleanField;
    LaboratorioPenalFECHA_APROBACION_LABORATORIO: TDateTimeField;
    LaboratorioPenalFECHA_INICIO: TDateTimeField;
    LaboratorioPenalFECHA_FIN: TDateTimeField;
    LaboratorioPenalOBSERVACIONES: TStringField;
    LaboratorioLaboralID_LABORATORIO_LABORAL: TAutoIncField;
    LaboratorioLaboralCODIGO_LABORATORIO_LABORAL: TStringField;
    LaboratorioLaboralANIO_LABORATORIO_LABORAL: TIntegerField;
    LaboratorioLaboralCARNE: TStringField;
    LaboratorioLaboralEST_CARNE: TStringField;
    LaboratorioLaboralEST_CARNE2: TStringField;
    LaboratorioLaboralID_USUARIO: TIntegerField;
    LaboratorioLaboralNOMBRE_ACTOR: TStringField;
    LaboratorioLaboralNOMBRE_DEMANDADO: TStringField;
    LaboratorioLaboralNOMBRE_JUEZ: TStringField;
    LaboratorioLaboralCLASE_JUICIO: TSmallintField;
    LaboratorioLaboralAPROBADO: TBooleanField;
    LaboratorioLaboralOBSERVACIONES: TStringField;
    ClinicaPenalID_CLINICA_PENAL: TAutoIncField;
    ClinicaPenalCODIGO_CLINICA_PENAL: TStringField;
    ClinicaPenalANIO_CLINICA_PENAL: TIntegerField;
    ClinicaPenalID_USUARIO: TIntegerField;
    ClinicaPenalCARNE: TStringField;
    ClinicaPenalNOMBRE_SINDICADO: TStringField;
    ClinicaPenalDELITO: TStringField;
    ClinicaPenalAPROBADO: TBooleanField;
    ClinicaPenalFECHA_ENTREGA_INFORME: TDateTimeField;
    ClinicaPenalFECHA_INICIO: TDateTimeField;
    ClinicaPenalFECHA_FIN: TDateTimeField;
    ClinicaPenalOBSERVACIONES: TStringField;
    ClinicaPenalFECHA_EMISION_DICTAMEN: TDateTimeField;
    ClinicaLaboralID_CLINICA_LABORAL: TAutoIncField;
    ClinicaLaboralCODIGO_CLINICA_LABORAL: TStringField;
    ClinicaLaboralANIO_CLINICA_LABORAL: TIntegerField;
    ClinicaLaboralID_USUARIO: TIntegerField;
    ClinicaLaboralCARNE: TStringField;
    ClinicaLaboralNOMBRE_ACTOR: TStringField;
    ClinicaLaboralNOMBRE_DEMANDADO: TStringField;
    ClinicaLaboralNOMBRE_JUEZ: TStringField;
    ClinicaLaboralCLASE_JUICIO: TSmallintField;
    ClinicaLaboralAPROBADO: TBooleanField;
    ClinicaLaboralOBSERVACIONES: TStringField;
    EstudianteBusquedaNOMBRECOMPLETO: TStringField;
    CasoLaboralCODIGOCOMPLETO: TStringField;
    AsesoresID_USUARIO: TAutoIncField;
    AsesoresNOMBRE: TStringField;
    AsesoresAPELLIDOS: TStringField;
    AsesoresTIPO: TSmallintField;
    AsesoresEMAIL: TStringField;
    AsesoresDIRECCION: TStringField;
    AsesoresTEL_CASA: TStringField;
    AsesoresCELULAR: TStringField;
    AsesoresLABORAL: TBooleanField;
    AsesoresPENAL: TBooleanField;
    AsesoresCIVIL: TBooleanField;
    AsesoresSUPERVISOR: TBooleanField;
    AsesoresNICK: TStringField;
    AsesoresPASSWORD: TStringField;
    AsesoresACTIVO: TBooleanField;
    AsesoresNOMBRECOMPLETO: TStringField;
    Patrocinado: TADOTable;
    DSpatrocinado: TDataSource;
    CasoCivilCODIGOCOMPLETO: TStringField;
    PasantiasCODIGOCOMPLETO: TStringField;
    LaboratorioPenalCODIGOCOMPLETO: TStringField;
    LaboratorioLaboralCODIGOCOMPELTO: TStringField;
    ClinicaPenalCODIGOCOMPLETO: TStringField;
    ClinicaLaboralCODIGOCOMPLETO: TStringField;
    Instituciones: TADOTable;
    DSinstituciones: TDataSource;
    InstitucionesID_INSTITUCION: TAutoIncField;
    InstitucionesID_MUNICIPIO: TIntegerField;
    InstitucionesID_DEPTO: TIntegerField;
    InstitucionesNOMBRE: TStringField;
    InstitucionesDIRECCION: TStringField;
    InstitucionesCASO_LABORAL: TBooleanField;
    InstitucionesCASO_CIVIL: TBooleanField;
    InstitucionesCLINICA_LABORAL: TBooleanField;
    InstitucionesCLINICA_CIVIL: TBooleanField;
    InstitucionesCLINICA_PENAL: TBooleanField;
    InstitucionesPASANTIA_LABORAL: TBooleanField;
    InstitucionesPASANTIA_CIVIL: TBooleanField;
    InstitucionesPASANTIA_PENAL: TBooleanField;
    InstitucionesPASANTIA_CAJ: TBooleanField;
    PasantiasAREACALCULADA: TStringField;
    Municipios: TADODataSet;
    MunicipiosID_MUNICIPIO: TAutoIncField;
    MunicipiosID_DEPTO: TIntegerField;
    MunicipiosMUNICIPIO: TStringField;
    dxSkinController1: TdxSkinController;
    BusquedaUsuarioNOMBRECOMPLETO: TStringField;
    ConsultaInicioSesionID_USUARIO: TAutoIncField;
    ConsultaInicioSesionNOMBRE: TStringField;
    ConsultaInicioSesionAPELLIDOS: TStringField;
    ConsultaInicioSesionTIPO: TSmallintField;
    ConsultaInicioSesionEMAIL: TStringField;
    ConsultaInicioSesionDIRECCION: TStringField;
    ConsultaInicioSesionTEL_CASA: TStringField;
    ConsultaInicioSesionCELULAR: TStringField;
    ConsultaInicioSesionLABORAL: TBooleanField;
    ConsultaInicioSesionPENAL: TBooleanField;
    ConsultaInicioSesionCIVIL: TBooleanField;
    ConsultaInicioSesionSUPERVISOR: TBooleanField;
    ConsultaInicioSesionNICK: TStringField;
    ConsultaInicioSesionPASSWORD: TStringField;
    ConsultaInicioSesionACTIVO: TBooleanField;
    ReporteEstudianteHistorial: TfrxReport;
    EstudianteBusquedaFECHA_INGRESO: TDateTimeField;
    CasoCivilFECHA_ASIGNACION: TDateTimeField;
    CasoCivilFECHA_VALORACION: TDateTimeField;
    CasoCivilActivo: TBooleanField;
    REstudiante: TfrxDBDataset;
    RCasoCivil: TfrxDBDataset;
    RCasoLaboral: TfrxDBDataset;
    RPasantia: TfrxDBDataset;
    RLaboratorioPenal: TfrxDBDataset;
    RLaboratorioLaboral: TfrxDBDataset;
    RClinicaPenal: TfrxDBDataset;
    RClinicaLaboral: TfrxDBDataset;
    LaboratorioLaboralFECHA_APROBADO: TDateTimeField;
    LaboratorioLaboralFECHA_INICIO: TDateTimeField;
    LaboratorioLaboralFECHA_FIN: TDateTimeField;
    ClinicaLaboralFECHA_APROBADO: TDateTimeField;
    ClinicaLaboralFECHA_INICIO: TDateTimeField;
    ClinicaLaboralFECHA_FIN: TDateTimeField;
    EstudiantesPorFecha: TfrxReport;
    EstudianteEntreFechas: TADOQuery;
    EstudianteEntreFechasCARNE: TStringField;
    EstudianteEntreFechasID_MUNICIPIO: TIntegerField;
    EstudianteEntreFechasID_DEPTO: TIntegerField;
    EstudianteEntreFechasID_ESTADO_CIVIL: TIntegerField;
    EstudianteEntreFechasNOMBRE: TStringField;
    EstudianteEntreFechasAPELLIDOS: TStringField;
    EstudianteEntreFechasTEL_CASA: TStringField;
    EstudianteEntreFechasTEL_PERSONAL: TStringField;
    EstudianteEntreFechasTEL_TRABAJO: TStringField;
    EstudianteEntreFechasDIRECCION: TStringField;
    EstudianteEntreFechasCEDULA_REGISTRO: TIntegerField;
    EstudianteEntreFechasDPI: TStringField;
    EstudianteEntreFechasEMAIL: TStringField;
    EstudianteEntreFechasPENSUM: TStringField;
    EstudianteEntreFechasNO_FOLIO: TStringField;
    EstudianteEntreFechasNO_LIBRO: TStringField;
    EstudianteEntreFechasFECHA_INGRESO: TDateTimeField;
    EstudianteEntreFechasNOMBRECOMPLETO: TStringField;
    DSestudianteEntreFechas: TDataSource;
    RestudianteEntreFechas: TfrxDBDataset;
    DSalertivos: TDataSource;
    Alertivos: TADOQuery;
    AlertivosID_ALERTIVO: TIntegerField;
    AlertivosID_USUARIO: TIntegerField;
    AlertivosCARNE: TStringField;
    AlertivosMENSAJE: TStringField;
    AlertivosACTIVO: TBooleanField;
    AlertivosLEIDO: TBooleanField;
    AlertivosCASO: TStringField;
    AlertivosATENDIDO: TBooleanField;
    Estudiantes: TADOTable;
    UsuarioLogin: TADOQuery;
    UsuarioLoginID_USUARIO: TAutoIncField;
    UsuarioLoginNOMBRE: TStringField;
    UsuarioLoginAPELLIDOS: TStringField;
    UsuarioLoginTIPO: TSmallintField;
    UsuarioLoginEMAIL: TStringField;
    UsuarioLoginDIRECCION: TStringField;
    UsuarioLoginTEL_CASA: TStringField;
    UsuarioLoginCELULAR: TStringField;
    UsuarioLoginLABORAL: TBooleanField;
    UsuarioLoginPENAL: TBooleanField;
    UsuarioLoginCIVIL: TBooleanField;
    UsuarioLoginSUPERVISOR: TBooleanField;
    UsuarioLoginNICK: TStringField;
    UsuarioLoginPASSWORD: TStringField;
    UsuarioLoginACTIVO: TBooleanField;
    AlertivosFECHAMODIFICACION: TDateTimeField;
    procedure EstudianteBusquedaCalcFields(DataSet: TDataSet);
    procedure CasoLaboralCalcFields(DataSet: TDataSet);
    procedure AsesoresCalcFields(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
    procedure PasantiasCalcFields(DataSet: TDataSet);
    procedure LaboratorioPenalCalcFields(DataSet: TDataSet);
    procedure LaboratorioLaboralCalcFields(DataSet: TDataSet);
    procedure ClinicaPenalCalcFields(DataSet: TDataSet);
    procedure ClinicaLaboralCalcFields(DataSet: TDataSet);
    procedure EstudianteBusquedaID_DEPTOChange(Sender: TField);
    procedure VacioNull(Tabla: TADOQuery);
    procedure BusquedaUsuarioCalcFields(DataSet: TDataSet);
    procedure EstudianteEntreFechasCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ModuloDatosUsuario: TModuloDatosUsuario;

implementation

{$R *.dfm}
procedure TModuloDatosUsuario.VacioNull(Tabla: TADOQuery);
var
i:integer;
begin
  for i := 0 to Tabla.FieldCount - 1 do
  begin
    if Tabla.Fields[i].AsString='' then
      Tabla.Fields[i].Clear;
  end;
end;

procedure TModuloDatosUsuario.AsesoresCalcFields(DataSet: TDataSet);
begin
  AsesoresNOMBRECOMPLETO.Value:= AsesoresNOMBRE.Value+' '+AsesoresAPELLIDOS.Value;
end;

procedure TModuloDatosUsuario.BusquedaUsuarioCalcFields(DataSet: TDataSet);
begin
  BusquedaUsuarioNOMBRECOMPLETO.Value:= BusquedaUsuarioNOMBRE.Value+' '+BusquedaUsuarioAPELLIDOS.Value;
end;

procedure TModuloDatosUsuario.CasoLaboralCalcFields(DataSet: TDataSet);
begin
  CasoLaboralCODIGOCOMPLETO.Value:= CasoLaboralCODIGO_CASO_LABORAL.Value+'-'+inttostr(CasoLaboralID_CASO_LABORAL.Value)
                              +'-'+inttostr(CasoLaboralANIO_CASO_LABORAL.Value);
end;

procedure TModuloDatosUsuario.ClinicaLaboralCalcFields(DataSet: TDataSet);
begin
ClinicaLaboralCODIGOCOMPLETO.Value:= ClinicaLaboralCODIGO_CLINICA_LABORAL.Value+'-'+inttostr(ClinicaLaboralID_CLINICA_LABORAL.Value)
                              +'-'+inttostr(ClinicaLaboralANIO_CLINICA_LABORAL.Value);
end;

procedure TModuloDatosUsuario.ClinicaPenalCalcFields(DataSet: TDataSet);
begin
  ClinicaPenalCODIGOCOMPLETO.Value:= ClinicaPenalCODIGO_CLINICA_PENAL.Value+'-'+inttostr(ClinicaPenalID_CLINICA_PENAL.Value)
                              +'-'+inttostr(ClinicaPenalANIO_CLINICA_PENAL.Value);
end;

procedure TModuloDatosUsuario.DataModuleCreate(Sender: TObject);
begin
  Departamentos.Open;
  Municipios.Open;
  EstadoCivil.Open;
  Asesores.Open;
  Patrocinado.Open;
//  Estudiantes.Open;

  UsuarioLogin.Open;
  BusquedaUsuario.Open;
  ConsultaInicioSesion.Open;
  EstudianteBusqueda.Open;
  CasoLaboral.Open;
  CasoCivil.Open;
  Pasantias.Open;
  LaboratorioPenal.Open;
  LaboratorioLaboral.Open;
  ClinicaPenal.Open;
  ClinicaLaboral.Open;

  EstudianteEntreFechas.Open;
end;

procedure TModuloDatosUsuario.EstudianteBusquedaCalcFields(DataSet: TDataSet);
begin
  EstudianteBusquedaNOMBRECOMPLETO.Value:= EstudianteBusquedaNOMBRE.Value+' '+EstudianteBusquedaAPELLIDOS.Value;
end;

procedure TModuloDatosUsuario.EstudianteBusquedaID_DEPTOChange(Sender: TField);
begin
   Municipios.Close;
   Municipios.Parameters.ParamByName('departamento').Value:=EstudianteBusquedaID_DEPTO.Value;
   Municipios.Open;
   EstudianteBusquedaID_MUNICIPIO.Clear;
end;

procedure TModuloDatosUsuario.EstudianteEntreFechasCalcFields(
  DataSet: TDataSet);
begin
  EstudianteEntreFechasNOMBRECOMPLETO.Value:= EstudianteEntreFechasNOMBRE.Value+' '+EstudianteEntreFechasAPELLIDOS.Value;
end;

procedure TModuloDatosUsuario.LaboratorioLaboralCalcFields(DataSet: TDataSet);
begin
  LaboratorioLaboralCODIGOCOMPELTO.Value:= LaboratorioLaboralCODIGO_LABORATORIO_LABORAL.Value+'-'+inttostr(LaboratorioLaboralID_LABORATORIO_LABORAL.Value)
                              +'-'+inttostr(LaboratorioLaboralANIO_LABORATORIO_LABORAL.Value);
end;

procedure TModuloDatosUsuario.LaboratorioPenalCalcFields(DataSet: TDataSet);
begin
  LaboratorioPenalCODIGOCOMPLETO.Value:= LaboratorioPenalCODIGO_LABORATORIO_PENAL.Value+'-'+inttostr(LaboratorioPenalID_LABORATORIO_PENAL.Value)
                              +'-'+inttostr(LaboratorioPenalANIO_LABORATORIO_PENAL.Value);
end;

procedure TModuloDatosUsuario.PasantiasCalcFields(DataSet: TDataSet);
begin
  PasantiasCODIGOCOMPLETO.Value:= PasantiasCODIGO_PASANTIA.Value+'-'+inttostr(PasantiasID_PASANTIA.Value)
                              +'-'+inttostr(PasantiasANIO_PASANTIA.Value);

  if PasantiasAREA_PASANTIA.Value=1 then      //revisar con el koala
    PasantiasAREACALCULADA.Value:= 'Penal';
  if PasantiasAREA_PASANTIA.Value=2 then
    PasantiasAREACALCULADA.Value:= 'Laboral'; //revisar con el koala
  if PasantiasAREA_PASANTIA.Value=0 then
    PasantiasAREACALCULADA.Value:= 'Civil';
  if PasantiasAREA_PASANTIA.Value=3 then
    PasantiasAREACALCULADA.Value:= 'CAJ';
end;

end.
